home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 February / 1987-02.d64 / collision course (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  13KB  |  225 lines
  1. 10 poke 53280,0:poke 53281,0:a$=" : : : : :"
  2. 20 print"[147][129]  [213][195][195][201][157][157][157][157][194][213][201][194][157][157][157][157][157] [194][194][194][194][157][157][157][157][194][194][202][203][157][157][157][157][194][194]  [213][195][195][201][213][201]  [213][201]  [213][195][195][201][213][195][195][201]";
  3. 30 print"[213][195][195][201][213][195][195][201][213][201]      [194][194]  [194][213][201][194][194][194]  [194][194]  [202][201][213][203][194][213][201][194][202][201][213][203][194][213][201][194][194][202][195][201]    [194][194]  [194][194][194][194][194][194]";
  4. 40 print"  [194][194]   [194][194] [194][194][202][203] [194][194] [194][194][194][194][194]  [194]    [194][194][213][201][194][194][194][194][194][194]  [194][194]   [194][194] [202][177][178][201] [194][194] [194][194][194][194][194]  [194]  ";
  5. 50 print"  [194][194][194][194][194][194][194][194][194][194]  [194][194]   [194][194] [213][201][194][194] [194][194] [194][194][194][194][194][213][201][194]    [194][202][203][194][194][202][203][194][194][202][195][201][194][202][195][201][213][203][202][201][194][202][203][194][213]";
  6. 60 print"[203][202][201][194][202][203][194][194][194][194][194]    [202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][203][202][203]          ";
  7. 70 print"[213][195][195][201][157][157][157][157][194][213][201][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][202][203][157][157][157][157][194][194]  [213][195][195][201][213][201][213][201][213][201]  [213][195][195][201][213][195][195][201]   ";
  8. 80 printspc(12)" [194][194]  [194][213][201][194][194][194][194][194][194][202][195][201][194][213][201][194][194][213][195][203]"spc(16)"[194][194]  [194][194][194][194][194][194][194][194][194][213][195][203][194][194][202][203][194][194]  ";
  9. 90 printspc(16)"[194][194][213][201][194][194][194][194][194][194][194][194][194][194]  [202][177][178][201][194][202][201]"spc(17)"[194][194][194][194][194][194][194][194][194][194][194][194][194][194]  [213][201][194][194][194][213][203]   ";
  10. 100 printspc(14)"[194][202][203][194][194][202][203][194][194][202][203][194][194][194]  [194][202][203][194][194][202][195][201]"spc(16)"[202][195][195][203][202][195][195][203][202][195][195][203][202][203]  [202][195][195][203][202][195][195][203]"
  11. 110 printspc(13)"[155]please wait[129]"
  12. 120 for l=54272 to 54295:poke l,0:next:poke 54276,64:poke 54283,32
  13. 130 for t=0 to 255:poke 16384-256+t,0:next
  14. 140 for k=0 to 3:for t=0 to 7:read d:poke 16384-256+z,d:z=z+3:next:z=z+40:next
  15. 150 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke 835,0
  16. 160 poke 53272,peek(53272)and 240 or 12
  17. 170 poke 836,208:poke 830,0:poke 831,216:poke 828,0:poke 829,56:poke 56334,0
  18. 180 poke 1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke 1,55:poke 56334,1
  19. 190 for i=12568 to 12759:read j:poke i,j:next:if peek(49152)=124 then 220
  20. 200 for i=49152 to 52199:read a:poke i,a:cs=cs+a:next
  21. 210 if cs<>211178 then print"error in data":stop
  22. 220 lv=1:cars=3:for t=0 to 8:poke 1024-16+t,0:next:poke 171,238:poke 830,lv
  23. 230 sys 49831:poke 1607,lv+48
  24. 240 print""tab(20-ca)mid$(a$,2,2*ca):sys 49887
  25. 250 if peek(838)=1 then 320
  26. 260 lv=lv+1:poke 830,lv:poke 171,peek(171)+2:poke 54276,0:gosub 460
  27. 270 gosub 400:print"[157][157][157]level completed":for x=1 to 2000:next
  28. 280 poke 1010,peek(1010)+lv-1
  29. 290 gosub 400:print"[157][157][157] bonus of"(lv-1)*100"[157]  ":for x=1 to 2000:next
  30. 300 if lv=3 or lv=6 then ca=ca+1:gosub 500
  31. 310 goto 230
  32. 320 gosub 410:car=car-1
  33. 330 gosub 400:print"           "
  34. 340 print""tab(20-ca)mid$(a$,2,2*ca)
  35. 350 if car>0 then 380
  36. 360 poke 53269,0:gosub 400:print"game over":for x=1 to 2000:next
  37. 370 gosub 400:print"press fire":wait 56320,16,16:goto 220
  38. 380 poke 53269,0:tm=ti:sys 49897:if tm+8>ti then 380
  39. 390 goto 250
  40. 400 print""spc(15);:return
  41. 410 poke 53251,peek(53249):poke 54276,0:poke 54292,240:poke 54290,129
  42. 420 poke 54287,10:gosub430:poke 54287,0:return
  43. 430 for z=1 to 20:poke 53265,peek(53265) and 248 or rnd(1)*8
  44. 440 poke 53270,peek(53270)and240 or rnd(1)*8:next:poke 53265,27:poke 53270,200
  45. 450 return
  46. 460 for l=54272 to 54295:poke l,0:next:poke 54296,15:poke 54277,8
  47. 470 poke 54278,255:poke 54276,23:for z=1 to 10:poke 54287,z*2:for f=1 to 10
  48. 480 poke 54273,10:next f,z:poke 54278,15:poke 54276,64:poke 54283,32:return
  49. 490 poke 54276,64:poke 54283,32:return
  50. 500 for z=1to4:gosub 400:print"[157][157]  bonus car ":for x=1 to 300:next
  51. 510 gosub400:print"[157][157]            ":for x=1 to 300:next:next:return
  52. 520 data 195,255,219,24,60,255,255,195,231
  53. 530 data 231,114,126,126,114,231,231,195,255,255,60,24,219,255,195,231
  54. 540 data 231,78,126,126,78,231,231,0,96,96,96,96,126,0,0,0,126,102,96,102
  55. 550 data 126,0,0,0,126,96,120,96,126,0,0,0,126,102,102,102,126,0,0,0,126
  56. 560 data 102,102,120,108,0,0,126,102,96,126,6,102,126,0,0,102,102,102,102
  57. 570 data 60,0,0,0,102,102,102,60,24,0,0,126,102,96,96,96,102,126,0,0,60
  58. 580 data 24,24,24,60,0,0,0,118,126,126,110,102,0,0,0,0,0,24,24,0,0,0,0,60
  59. 590 data 96,60,6,124,0,0,0,60,102,110,118,102,60,0,0,24,56,24,24,24,126
  60. 600 data 0,0,62,102,12,48,96,126,0,0,126,6,28,6,6,124,0,0,102,102,102
  61. 610 data 127,6,6,0,0,126,96,124,6,102,60,0,0,60,96,124,102,102,60,0,0
  62. 620 data 126,102,12,24,24,24,0,0,60,102,60,102,102,60,0
  63. 630 data 0,60,102,62,6,102,60,0,195,255,219,24,60,255,255,195
  64. 640 rem *** ml data ***
  65. 650 data 124,178,52,114,5,7,4,3,132,194,44,98,234,234,234,234
  66. 660 data 140,210,36,82,234,234,234,234,148,226,28,66,234,234,234,234
  67. 670 data 165,162,41,7,208,53,162,0,142,2,220,173,0,220,41,4
  68. 680 data 208,3,206,64,3,173,0,220,41,8,208,3,238,64,3,173
  69. 690 data 0,220,41,16,240,13,169,1,141,65,3,169,1,141,1,212
  70. 700 data 56,176,8,142,65,3,169,2,141,1,212,202,142,2,220,173
  71. 710 data 64,3,41,3,141,64,3,162,0,160,0,134,2,174,64,3
  72. 720 data 189,4,192,166,2,157,228,217,157,252,217,153,99,216,153,147
  73. 730 data 218,152,24,105,40,168,232,224,7,208,224,165,179,240,3,56
  74. 740 data 233,80,133,179,141,8,212,169,1,141,25,208,173,13,220,41
  75. 750 data 1,240,3,76,49,234,76,188,254,162,0,138,157,64,3,232
  76. 760 data 224,128,208,248,169,226,141,120,3,169,226,141,121,3,169,84
  77. 770 data 141,112,3,169,92,141,113,3,169,192,141,0,212,169,6,141
  78. 780 data 39,208,141,97,3,169,3,141,96,3,169,128,141,105,3,169
  79. 790 data 3,141,88,3,169,3,141,89,3,169,27,141,17,208,169,127
  80. 800 data 141,13,220,169,32,141,20,3,169,192,141,21,3,169,129,141
  81. 810 data 26,208,169,3,141,21,208,169,3,141,64,3,169,0,141,32
  82. 820 data 208,141,33,208,169,15,141,24,212,169,240,141,13,212,141,6
  83. 830 data 212,169,33,141,11,212,169,65,141,4,212,169,9,141,3,212
  84. 840 data 141,40,208,96,188,112,3,189,96,3,201,1,208,1,200,201
  85. 850 data 3,208,1,136,152,157,112,3,188,120,3,189,96,3,208,1
  86. 860 data 136,201,2,208,1,200,152,157,120,3,222,80,3,96,254,96
  87. 870 data 3,189,104,3,240,6,222,96,3,222,96,3,189,96,3,41
  88. 880 data 3,157,96,3,32,52,193,96,162,0,189,112,3,240,80,224
  89. 890 data 1,208,6,173,66,3,208,71,234,32,52,193,189,88,3,10
  90. 900 data 10,10,168,189,96,3,41,1,201,1,208,22,189,112,3,217
  91. 910 data 0,192,208,3,32,94,193,189,112,3,217,2,192,208,3,32
  92. 920 data 94,193,189,96,3,41,1,208,22,189,120,3,217,1,192,208
  93. 930 data 3,32,94,193,189,120,3,217,3,192,208,3,32,94,193,232
  94. 940 data 224,2,208,166,96,162,0,134,255,169,1,133,254,160,0,189
  95. 950 data 112,3,24,10,153,0,208,144,6,165,254,5,255,133,255,189
  96. 960 data 120,3,153,1,208,6,254,189,96,3,24,105,252,157,248,7
  97. 970 data 232,200,200,224,8,208,216,165,255,141,16,208,96,76,148,194
  98. 980 data 162,0,189,112,3,240,246,189,96,3,41,1,208,58,189,120
  99. 990 data 3,201,146,240,4,201,147,208,47,160,146,201,146,208,2,160
  100. 1000 data 147,152,157,120,3,173,64,3,157,88,3,10,10,10,188,96
  101. 1010 data 3,208,3,24,105,2,188,104,3,240,2,73,2,168,185,0
  102. 1020 data 192,157,112,3,56,176,61,234,189,112,3,201,87,240,4,201
  103. 1030 data 88,208,49,160,87,201,87,208,2,160,88,152,157,112,3,173
  104. 1040 data 64,3,10,10,10,188,96,3,192,1,208,3,24,105,2,188
  105. 1050 data 104,3,240,2,73,2,168,200,185,0,192,157,120,3,173,64
  106. 1060 data 3,157,88,3,232,224,1,208,6,173,66,3,240,5,232,224
  107. 1070 data 2,240,3,76,18,194,96,162,0,189,232,195,157,0,4,189
  108. 1080 data 232,196,